PC WORLD Online - Word ▌τin Faydal² Makrolar

Belgeye Bilgi Eklemek

Word belgenizi hakk²nda dosya ad², dosya uzunlu≡u, s÷zcⁿk say²s² vs.. gibi bilgileri belgenin belli bir yerine eklemek mi istiyorsunuz. ╟÷zⁿm a■a≡²daki makroyu yazmak ve WordÆe eklemek. Makromuz τal²■t²r²ld²≡²nda ekleme noktas²n²n bulundu≡u yerden itibaren

* Belgenin ba■l²≡²
* Tam rehber ismiyle birlikte dosyan²n ad²
* Dosyan²n boyutu
* Sayfa say²s²
* S÷zcⁿk say²s²

gibi istatistiki bilgileri ekler. Bu bilgiler Word belgesinin iτine dinamik alanlar olarak eklenmektedir. Bu alanlar² gⁿncellemek iτin, alan²n ⁿzerine gidip sa≡ fare dⁿ≡mesine basmak ve ekrana gelecek olan menⁿden ôupdate fieldö (alan² gⁿncelle) komutunu τal²■t²rmak yeterlidir.

Makro 2: belgebilgileri

Sub MAIN
Insert Chr$(13) + "Belge Bilgileri" + Chr$(13)
Insert "---------------" + Chr$(13)
Insert "Belge Ba■l²≡²: "
InsertField .Field = "TITLE"
Insert Chr$(13) + "Dosya ad²: "
InsertField .Field = "FILENAME \p"
Insert Chr$(13) + "Dosya boyutu: "
InsertField .Field = "FILESIZE \k"
Insert " Kilobayt"
Insert Chr$(13) + "Sayfa say²s²: "
InsertField .Field = "NUMPAGES"
Insert Chr$(13) + "S÷zcⁿk say²s²: "
InsertField .Field = "NUMWORDS"
Insert Chr$(13) + "---------------" + Chr$(13)
End Sub